Business Assistant/Business Assistant.iso/indus/auto_inv/inv_0510.prg

Text File | 1991-08-07 | 2KB | 78 lines

*--------------------------------------------------------------------------
* Program KEV_0510 - List All Invoices on File  Kevins Subaru Invoicing
*                       (c) 1989 Systematics Consulting, Inc.
*--------------------------------------------------------------------------

SET TALK OFF
SET ECHO OFF
SET STATUS OFF
CLOSE ALL

ANSWER = " "

SELECT 1
USE KEV_MSTR INDEX KEV_IDX1.NDX
SELECT 2
USE KEV_LBOR
SELECT 3
USE KEV_PART


  CLEAR

SELECT 1

   @ 24, 10 SAY  "Systematics Consulting, Inc. [phone] - Program KEV_0510"
   @ 1,  1 SAY  DATE()
   @ 1, 71 SAY  TIME()
   @ 2,  5 TO  5,75 DOUBLE
   @ 3, 15 SAY  "             KEVIN'S SUBARU               "
   @ 4, 15 SAY  "        List All Invoices on file         "

   @ 6,  1  SAY "PRINTED  INV #   DATE     NAME"


X = 8

DO WHILE .NOT. EOF()

@  X,  4  SAY  PRINTED
@  X, 10  SAY  INV_NO PICTURE "#####"
@  X, 16  SAY  KEV_MSTR->DATE
@  X, 28  SAY  TRIM(FIRSTNAME) + " " + TRIM(LASTNAME)

X = X+1

IF X > 20
  ANSWER = " "
  @ 22, 14  SAY "  PRESS ANY KEY TO CONNTINUE: " GET ANSWER
  @ 21,  9  TO 23, 71    DOUBLE
  READ
    @ 24, 10 SAY  "Systematics Consulting, Inc. [phone] - Program KEV_0510"
    @ 1,  1 SAY  DATE()
    @ 1, 71 SAY  TIME()
    @ 2,  5 TO  5,75 DOUBLE
    @ 3, 15 SAY  "             KEVIN'S SUBARU               "
   @ 4, 15 SAY  "        List All Invlices on file         "

   @ 6,  1  SAY "PRINTED  INV #   DATE     NAME"
    X = 8
ENDIF

SKIP

ENDDO


  ANSWER = " "
  @ 22, 14  SAY "  PRESS ANY KEY TO RETURN TO MENU: " GET ANSWER
  @ 21,  9  TO 23, 71    DOUBL
  READ

  CLOSE ALL
RETURN TO MASTER



*---------- END OF PROGRAM ----------------